home *** CD-ROM | disk | FTP | other *** search
- object ThumbForm: TThumbForm
- Left = 7
- Top = 51
- BorderStyle = bsDialog
- Caption = 'Image pre-viewer'
- ClientHeight = 352
- ClientWidth = 609
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- PixelsPerInch = 96
- Position = poScreenCenter
- OnActivate = FormActivate
- OnClose = FormClose
- TextHeight = 14
- object Label1: TLabel
- Left = 3
- Top = 6
- Width = 157
- Height = 15
- AutoSize = False
- Color = clGray
- Font.Color = clWhite
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- end
- object Gauge1: TGauge
- Left = 505
- Top = 160
- Width = 97
- Height = 9
- BorderStyle = bsNone
- ForeColor = clNavy
- BackColor = clBtnFace
- Progress = 0
- end
- object Label2: TLabel
- Left = 496
- Top = 62
- Width = 112
- Height = 14
- Alignment = taCenter
- AutoSize = False
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- end
- object StopBtn: TSpeedButton
- Left = 526
- Top = 80
- Width = 57
- Height = 30
- Glyph.Data = {
- 80010000424D8001000000000000760000002800000014000000140000000100
- 040000000000F000000000000000000000000000000000000000000000000000
- BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 7777777700007777711111111177777700007777199999999917777700007771
- 9999999999917777000077199999999999991777000071999999999999999177
- 000019999999999999999917000019FFF99F99FFF9F9991700001999F99F99F9
- F9F99917000019FFF99F99F9F9FFF917000019F9999F99F9F9F9F917000019FF
- F9FFF9FFF9FFF917000019999999999999999917000019999999999999999917
- 0000719999999999999991770000771999999999999917770000777199999999
- 9991777700007777199999999917777700007777711111111177777700007777
- 7777777777777777000000000000000000000000000000000000000000000000
- 00000000}
- Visible = False
- OnClick = AbortBtnClick
- end
- object Image1: TImage
- Left = 530
- Top = 115
- Width = 49
- Height = 37
- Center = True
- Picture.Data = {<image000.ico>}
- OnDragDrop = Image1DragDrop
- OnDragOver = Image1DragOver
- end
- object Thumbs: TStringGrid
- Left = 168
- Top = 7
- Width = 324
- Height = 301
- DefaultColWidth = 60
- DefaultRowHeight = 50
- FixedCols = 0
- FixedRows = 0
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'Arial'
- Font.Style = []
- Options = [goVertLine, goHorzLine]
- ParentColor = True
- ParentFont = False
- RowCount = 10
- ScrollBars = ssVertical
- TabOrder = 0
- OnClick = ThumbsClick
- OnDblClick = ThumbsDblClick
- OnDragDrop = ThumbsDragDrop
- OnDragOver = ThumbsDragOver
- OnDrawCell = ThumbsDrawCell
- OnKeyDown = ThumbsKeyDown
- OnMouseDown = ThumbsMouseDown
- OnMouseMove = ThumbsMouseMove
- end
- object DriveComboBox1: TDriveComboBox
- Left = 7
- Top = 322
- Width = 148
- Height = 21
- Color = clBtnFace
- Font.Color = clBtnText
- Font.Height = -12
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- OnChange = DriveComboBox1Change
- OnClick = DriveComboBox1Click
- end
- object DirectoryListBox1: TDirectoryListBox
- Left = 8
- Top = 199
- Width = 146
- Height = 117
- Color = clBtnFace
- Font.Color = clBtnText
- Font.Height = -12
- Font.Name = 'Times New Roman'
- Font.Style = []
- ItemHeight = 16
- ParentFont = False
- TabOrder = 2
- OnChange = DirectoryListBox1Change
- OnClick = DirectoryListBox1Click
- end
- object FileListBox1: TFileListBox
- Left = 8
- Top = 54
- Width = 144
- Height = 141
- Hint = 'Drag Image on the grid to create thumbnail'
- Color = clBtnFace
- Font.Color = clBtnText
- Font.Height = -12
- Font.Name = 'Times New Roman'
- Font.Style = []
- ItemHeight = 16
- Mask = '*.JPG;*.GIF;*.PCX;*.BMP;*.PNG;*.TIF;*.WMF;*.ICO'
- ParentFont = False
- ShowGlyphs = True
- TabOrder = 3
- OnChange = FileListBox1Change
- OnClick = FileListBox1Click
- OnDblClick = FileListBox1DblClick
- OnKeyDown = FileListBox1KeyDown
- OnMouseDown = FileListBox1MouseDown
- end
- object ComboBox1: TComboBox
- Left = 8
- Top = 27
- Width = 145
- Height = 22
- Color = clBtnFace
- DropDownCount = 15
- Font.Color = clBtnText
- Font.Height = -11
- Font.Name = 'Times New Roman'
- Font.Style = []
- ItemHeight = 14
- Items.Strings = (
- '*.JPG;*.GIF;*.PCX;*.BMP;*.PNG;*.TIF;*.WMF;*.ICO'
- '*.JPG'
- '*.GIF'
- '*.PCX'
- '*.BMP'
- '*.PNG'
- '*.TIF'
- '*.WMF'
- '*.ICO')
- ParentFont = False
- TabOrder = 4
- Text = 'Select file type'
- OnChange = ComboBox1Change
- OnClick = ComboBox1Click
- end
- object PMultiImage2: TPMultiImage
- Left = 521
- Top = 9
- Width = 60
- Height = 50
- Center = True
- Color = clBtnFace
- ImageName = 'file not found'
- ImageDither = True
- ImageReadRes = lAutoMatic
- ImageWriteRes = sAutoMatic
- TifSaveCompress = sNONE
- JPegSaveQuality = 25
- JPegSaveSmooth = 0
- TextLeft = 0
- TextTop = 0
- TextRotate = 0
- TabOrder = 6
- TabStop = False
- Visible = False
- end
- object GroupBox2: TGroupBox
- Left = 501
- Top = 173
- Width = 102
- Height = 103
- Hint = 'Resolution of the previews'
- Caption = 'Resolution'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 7
- object SaveRes24: TRadioButton
- Left = 2
- Top = 61
- Width = 96
- Height = 17
- Caption = 'True color'
- TabOrder = 0
- OnClick = Saveresclick
- end
- object SaveRes8: TRadioButton
- Left = 2
- Top = 37
- Width = 96
- Height = 17
- Caption = '256 colors'
- TabOrder = 1
- OnClick = Saveresclick
- end
- object SaveRes4System: TRadioButton
- Left = 2
- Top = 15
- Width = 98
- Height = 17
- Caption = '16 system colors'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- OnClick = Saveresclick
- end
- object SaveResAuto: TRadioButton
- Left = 2
- Top = 83
- Width = 68
- Height = 17
- Caption = 'Automatic'
- Checked = True
- TabOrder = 3
- TabStop = True
- OnClick = Saveresclick
- end
- end
- object PMultiImage1: TPMultiImage
- Left = 521
- Top = 9
- Width = 60
- Height = 50
- Center = True
- Color = clBtnFace
- ImageName = 'file not found'
- ImageDither = True
- ImageReadRes = lAutoMatic
- ImageWriteRes = sAutoMatic
- TifSaveCompress = sNONE
- JPegSaveQuality = 25
- JPegSaveSmooth = 0
- Stretch = True
- TextLeft = 0
- TextTop = 0
- TextRotate = 0
- TabOrder = 5
- TabStop = False
- end
- object GroupBox1: TGroupBox
- Left = 500
- Top = 288
- Width = 104
- Height = 56
- Caption = 'Optimize previews'
- TabOrder = 8
- object RSpeed: TRadioButton
- Left = 2
- Top = 15
- Width = 71
- Height = 17
- Caption = 'for speed'
- Checked = True
- TabOrder = 0
- TabStop = True
- OnClick = RSpeedClick
- end
- object RSize: TRadioButton
- Left = 2
- Top = 36
- Width = 71
- Height = 17
- Caption = 'for size'
- TabOrder = 1
- OnClick = RSpeedClick
- end
- end
- object Panel1: TPanel
- Left = 167
- Top = 307
- Width = 325
- Height = 37
- BevelOuter = bvLowered
- TabOrder = 9
- object LoadBtn: TSpeedButton
- Left = 1
- Top = 2
- Width = 37
- Height = 34
- Hint = 'Load all existing thumbs'
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000001000000010000000000000000000
- BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 7777777777777777777777777780087777777800000000000087708800888800
- 880770880888888088077088087888808807708808E78880880770FF00888800
- FF0770FFF000000FFF0770000000000000077700780FF0870077777777800877
- 7777777777777777777777777777777777777777777777777777}
- ParentShowHint = False
- ShowHint = True
- OnClick = LoadBtnClick
- end
- object CreateNewKeep: TSpeedButton
- Left = 37
- Top = 2
- Width = 37
- Height = 34
- Hint = 'Create new previews keep old ones'
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000001000000010000000000000000000
- BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 77777777777777777777777800000008777777707777777077007770788F8870
- 008077707777777080807770777887707070777078800870F070777080088070
- 00F0007008877070770008088770000877770F07700777777777007007777777
- 7777777777777777777777777777777777777777777777777777}
- ParentShowHint = False
- ShowHint = True
- OnClick = IncAllKeepBtnClick
- end
- object CreateNewDelete: TSpeedButton
- Left = 73
- Top = 2
- Width = 37
- Height = 34
- Hint = 'Create new previews and delete old ones'
- Glyph.Data = {
- 42010000424D4201000000000000760000002800000011000000110000000100
- 040000000000CC00000000000000000000001000000010000000000000000000
- BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 7777700000007000000000000000700000007077770770770770700000007007
- 7077077077007000000070707777770770707000000070770770707707707000
- 0000707770770700777070000000707777007777777070000000707777777777
- 7770700000007077777777700770700000007077777777077070700000007077
- 7777770770707000000070777777777007707000000070777777777777707000
- 0000700000000000000070000000777777777777777770000000777777777777
- 777770000000}
- ParentShowHint = False
- ShowHint = True
- OnClick = CreateNewDeleteClick
- end
- object DeleteAllBtn: TSpeedButton
- Left = 109
- Top = 2
- Width = 37
- Height = 34
- Hint = 'Delete all previews'
- Glyph.Data = {
- 42010000424D4201000000000000760000002800000011000000110000000100
- 040000000000CC00000000000000000000001000000010000000000000000000
- BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 777770000000777777777777777770000000777777777777770F700000007777
- 0F777777777770000000777000F7777770F770000000777000F777770F777000
- 00007777000F77700F777000000077777000F700F7777000000077777700000F
- 7777700000007777777000F777777000000077777700000F7777700000007777
- 7000F70F7777700000007770000F77700F7770000000770000F7777700F77000
- 00007700F7777777700F70000000777777777777777770000000777777777777
- 777770000000}
- ParentShowHint = False
- ShowHint = True
- OnClick = DeleteAllBtnClick
- end
- object ClearAllBtn: TSpeedButton
- Left = 145
- Top = 2
- Width = 37
- Height = 34
- Hint = 'Clear preview window'
- Glyph.Data = {
- 42010000424D4201000000000000760000002800000011000000110000000100
- 040000000000CC00000000000000000000001000000010000000000000000000
- BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 7777700000007777777777177777700000007777777771177777100000007777
- 7777711177717000000077777777771177117000000070000000000011577000
- 0000707777777775117770000000707007007071511770000000707777777711
- 771150000000704444445144447510000000774FFFFF15FFF47770000000774F
- 00F00F00F47770000000774FFFFFFFFFF4777000000077444444444444777000
- 0000774744744744747770000000774444444444447770000000777777777777
- 777770000000}
- ParentShowHint = False
- ShowHint = True
- OnClick = ClearAllBtnClick
- end
- object CloseBtn: TSpeedButton
- Left = 287
- Top = 2
- Width = 37
- Height = 34
- Hint = 'Close window'
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
- 03333377777777777F333301111111110333337F333333337F33330111111111
- 0333337F333333337F333301111111110333337F333333337F33330111111111
- 0333337F333333337F333301111111110333337F333333337F33330111111111
- 0333337F3333333F7F333301111111B10333337F333333737F33330111111111
- 0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11
- 0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11
- 0333337F377777337F333301111111110333337F333333337F33330111111111
- 0333337FFFFFFFFF7F33330000000000033333777777777773330000}
- Layout = blGlyphTop
- NumGlyphs = 2
- ParentShowHint = False
- ShowHint = True
- OnClick = CancelBtnClick
- end
- object AutoLoad: TCheckBox
- Left = 185
- Top = 4
- Width = 70
- Height = 17
- Hint = 'Autoload Previews'
- Caption = 'Autoload'
- TabOrder = 0
- OnClick = AutoLoadClick
- end
- object GPall: TCheckBox
- Left = 185
- Top = 18
- Width = 96
- Height = 17
- Hint = 'In 256 color mode use a shared palette'
- Caption = 'Use best palette'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- OnClick = GPallClick
- end
- end
- end
-